home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / VISUALBA / IPXSPX.ZIP / SOURCE / GLOBAL.BAS
BASIC Source File  |  1993-11-24  |  3KB  |  74 lines
  1. 'Win SDK calls and Consts
  2. Global Const WM_USER = &H400
  3. Global Const LB_FINDSTRING = (WM_USER + 16)
  4. Global Const LB_ERR = (-1)
  5.  
  6. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  7.  
  8. 'Types used internally by NetChat to talk to NWCALLS.DLL
  9. 'and receive the input
  10.  
  11. Type USER_INFO
  12.     connNumber As Integer
  13.     objectName As String * 48
  14.     objectType As Integer
  15.     objectID As Long
  16.     loginTime As String * 7
  17. End Type
  18.  
  19.  
  20. Type InternetAddress
  21.     network As String * 4
  22.     node As String * 6
  23. End Type
  24.  
  25.  
  26. Type IPXAddress
  27.     network As String * 4
  28.     node As String * 6
  29.     socket As String * 2
  30. End Type
  31.  
  32. Type IPXHeader
  33.     checkSum As Integer
  34.     length As Integer
  35.     transportControl As String * 1
  36.     packetType As String * 1
  37.     destination As IPXAddress
  38.     source As IPXAddress
  39. End Type
  40.  
  41. Type NetChatInput
  42.     header As IPXHeader
  43.     data As String
  44. End Type
  45.  
  46. 'Constants used for NetChat sockets and packet types
  47. Global Const socketNumber = &H5454
  48. Global Const IPXSPX_CONNECT = &H0
  49. Global Const IPXSPX_DISCONNECT = &H1
  50. Global Const IPXSPX_DATA = &H2
  51. Global Const IPXSPX_SENDCONN = &H3
  52. Global Const IPXSPX_RECEIVECONN = &H4
  53. Global Const IPXSPX_RECEIVECONNMODAL = &H5
  54.  
  55. 'Global variables used with NetChat
  56. Global yourInetAddress As InternetAddress
  57. Global myInetAddress As InternetAddress
  58. Global nwConn As Integer
  59. Global nwConnNumber As Integer
  60. Global netWareUsers() As USER_INFO
  61. Global NetChatState As Integer
  62.  
  63.  
  64. 'NWCALLS.DLL function prototypes
  65. Declare Sub NWGetFileServerName Lib "NWCALLS.DLL" (ByVal conn As Integer, ByVal servername As String)
  66. Declare Function NWGetConnectionHandle Lib "NWCALLS.DLL" (ByVal servername As String, ByVal reserver1 As Integer, conn As Integer, reserved2 As Any) As Integer
  67. Declare Function NWCallsInit Lib "NWCALLS.DLL" (ByVal in&, ByVal out&) As Integer
  68. Declare Function NWGetFileServerInformation Lib "NWCALLS.DLL" (ByVal conn As Integer, servername As Any, majVer As Any, minVer As Any, rev As Any, maxConn As Any, maxConnUsed As Any, maxConnsInuse As Any, numVol As Any, sft As Any, tts As Any) As Integer
  69. Declare Function NWGetConnectionInformation Lib "NWCALLS.DLL" (ByVal conn As Integer, ByVal connNumber As Integer, objectName As Any, objectType As Any, objectID As Any, loginTime As Any) As Integer
  70. Declare Function NWGetInternetAddress Lib "NWCALLS.DLL" (ByVal conn As Integer, ByVal connNumber As Integer, InternetAddress As InternetAddress) As Integer
  71. Declare Function NWGetConnectionNumber Lib "NWCALLS.DLL" (ByVal conn As Integer, connNumber As Integer) As Integer
  72. Declare Function NWGetConnectionList Lib "NWCALLS.DLL" (ByVal connMode As Integer, connListBuffer As Any, ByVal connListSize As Integer, numConnections As Integer) As Integer
  73.  
  74.